home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / lib / float / cva_dptoffp.a next >
Encoding:
Text File  |  1994-02-01  |  659 b   |  30 lines
  1.  
  2.         ;   CVA_DPTOFFP.A
  3.         ;
  4.         ;   A0 = &arg    (4 bytes)
  5.         ;
  6.         ;   result in D0/D1
  7.         ;
  8.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  9.  
  10.         section text,code
  11.  
  12.         xref    _MathTransBase
  13.         xref    _MathIeeeDoubTransBase
  14.  
  15.         xref    _LVOIEEEDPTieee ; MathIeeeDoubTransBase (ieee.doub->ieee.sing)
  16.         xref    _LVOSPFieee    ; MathTransBase (ieee.sing -> ffp)
  17.         xdef    __cvdptoffp_a
  18.  
  19. __cvdptoffp_a    move.l    A6,-(sp)
  20.         move.l    _MathIeeeDoubTransBase(A4),A6
  21.         movem.l (A0),D0/D1          ; get ieee.double value
  22.         jsr    _LVOIEEEDPTieee(A6) ; convert ieee.doub->ieee.sing
  23.         move.l    _MathTransBase(A4),A6
  24.         jsr    _LVOSPFieee(A6)     ; convert ieee.sing -> ffp
  25.         move.l    (sp)+,A6
  26.         rts
  27.  
  28.         END
  29.  
  30.